home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / fitalpha.rexx < prev    next >
OS/2 REXX Batch file  |  1995-04-11  |  1KB  |  47 lines
  1. /**************************************************/
  2. /* Image Engineer script                          */
  3. /* FitAlpha                                       */
  4. /* by Simon Edwards                               */
  5. /* Creates a spherical alpha channel for an image */
  6. /**************************************************/
  7.  
  8. Options results
  9. signal on error            /* Setup a place for errors to go */
  10.  
  11. if arg()==0 then exit
  12.  
  13. project_info arg(1) WIDTH
  14. width=RESULT
  15. project_info arg(1) HEIGHT
  16. height=RESULT
  17.  
  18. TYPE 8BIT
  19. 'OPEN IE:alpha/Spherical.alpha'
  20. alphachannel=result
  21. SCALE alphachannel width height BEST
  22. newalpha=result
  23. CLOSE alphachannel
  24.  
  25. MARK arg(1) PRIMARY
  26. MARK newalpha ALPHA
  27.  
  28. exit
  29.  
  30. /*******************************************************************/
  31. /* This is where control goes when an error code is returned by IE */
  32. /* It puts up a message saying what happened and on which line     */
  33. /*******************************************************************/
  34. error:
  35. if RC=5 then do            /* Did the user just cancel us? */
  36.     IE_TO_FRONT
  37.     LAST_ERROR
  38.     'REQUEST "'||RESULT||'"'
  39.     exit
  40. end
  41. else do
  42.     IE_TO_FRONT
  43.     LAST_ERROR
  44.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  45.     exit
  46. end
  47.